home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Integer INTEGER001
- Integer INTEGER002
- Integer INTEGER003
- Integer INTEGER004
- Integer INTEGER005
- Integer INTEGER006
- Integer INTEGER007
- Integer INTEGER008
- Integer INTEGER009
- Integer INTEGER010
- Integer INTEGER011
- Integer INTEGER012
- Integer INTEGER013
- Integer INTEGER014
- Integer INTEGER015
- Integer INTEGER016
- Integer INTEGER017
- Integer INTEGER018
- Integer INTEGER019
- String STRING001
-
- ;------------------------------------------------------------------------------
-
- Cls
- FOpen 1, PPEPath() + "CODE.CFG", 0, 0
- FGet 1, INTEGER018
- FGet 1, INTEGER019
- FClose 1
- INTEGER011 = INTEGER019
- PrintLn "@X04CTC @X08- @X09Crack The Code PPE Gambler"
- PrintLn "@X09Written By Brett Lucey / Wiz-Ware Software"
- PrintLn "@X0ACopyright (c) 1994, Brett Lucey / Wiz-Ware Software"
- PrintLn ""
- :LABEL001
- InputStr "How much time would you like to bet", INTEGER012, 9, 2, "0123456789.", 256
- If (INTEGER012 > INTEGER018) Then
- PrintLn "The maximum bet is " + String(INTEGER018) + "."
- Goto LABEL001
- Endif
- PrintLn "Instructions:"
- PrintLn " You are breaking into a special room. If you get in, the you"
- PrintLn "win the time. If not, then you lose " + String(INTEGER012) + " minutes. :("
- PrintLn "On the bottom half of the keyboard is the code you are guessing."
- PrintLn "If you get a digit right, then that digit will appear on the top."
- PrintLn "If you win, then you get the amount of guesses left times your bet."
- PrintLn "You will get " + String(INTEGER011) + " guesses."
- If (INTEGER012 > MinLeft()) Then
- PrintLn "You do not have enough time to play."
- AdjTime 1
- Else
- INTEGER013 = 0
- INTEGER014 = 0
- INTEGER015 = 0
- INTEGER016 = 0
- INTEGER017 = 0
- INTEGER001 = Random(9)
- INTEGER002 = Random(9)
- INTEGER003 = Random(9)
- INTEGER004 = Random(9)
- INTEGER005 = Random(9)
- If (U_Name() == "BRETT LUCEY") PrintLn INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
- Wait
- DispFile PPEPath() + "CODE.ANS", 1
- :LABEL002
- Print "@X70"
- AnsiPos 44, 7
- Print Time()
- AnsiPos 44, 10
- Print "@TIMELEFT@", " "
- AnsiPos 44, 13
- Print INTEGER012, " "
- AnsiPos 44, 16
- Print String(INTEGER019 - INTEGER011) + " "
- AnsiPos 44, 19
- Print String(INTEGER011) + " "
- :LABEL003
- If (INTEGER013 == 1) Goto LABEL004
- AnsiPos 29, 19
- STRING001 = Inkey()
- If (STRING001 == "") Goto LABEL003
- INTEGER006 = S2I(STRING001, 10)
- If (!((((((((((INTEGER006 == 1) || (INTEGER006 == 2)) || (INTEGER006 == 3)) || (INTEGER006 == 4)) || (INTEGER006 == 5)) || (INTEGER006 == 6)) || (INTEGER006 == 7)) || (INTEGER006 == 8)) || (INTEGER006 == 9)) || (INTEGER006 == 0))) Goto LABEL003
- Print INTEGER006
- If (INTEGER006 == INTEGER001) Then
- AnsiPos 29, 4
- Print INTEGER006
- AnsiPos 29, 19
- Print "@X0F", INTEGER006, "@X70"
- INTEGER013 = 1
- Endif
- :LABEL004
- If (INTEGER014 == 1) Goto LABEL005
- AnsiPos 31, 19
- STRING001 = Inkey()
- If (STRING001 == "") Goto LABEL004
- INTEGER007 = S2I(STRING001, 10)
- If (!((((((((((INTEGER007 == 1) || (INTEGER007 == 2)) || (INTEGER007 == 3)) || (INTEGER007 == 4)) || (INTEGER007 == 5)) || (INTEGER007 == 6)) || (INTEGER007 == 7)) || (INTEGER007 == 8)) || (INTEGER007 == 9)) || (INTEGER007 == 0))) Goto LABEL004
- Print INTEGER007
- If (INTEGER007 == INTEGER002) Then
- AnsiPos 31, 4
- Print INTEGER007
- AnsiPos 31, 19
- Print "@X0F", INTEGER007, "@X70"
- INTEGER014 = 1
- Endif
- :LABEL005
- If (INTEGER015 == 1) Goto LABEL006
- AnsiPos 33, 19
- STRING001 = Inkey()
- If (STRING001 == "") Goto LABEL005
- INTEGER008 = S2I(STRING001, 10)
- If (!((((((((((INTEGER008 == 1) || (INTEGER008 == 2)) || (INTEGER008 == 3)) || (INTEGER008 == 4)) || (INTEGER008 == 5)) || (INTEGER008 == 6)) || (INTEGER008 == 7)) || (INTEGER008 == 8)) || (INTEGER008 == 9)) || (INTEGER008 == 0))) Goto LABEL005
- Print INTEGER008
- If (INTEGER008 == INTEGER003) Then
- AnsiPos 33, 4
- Print INTEGER008
- AnsiPos 33, 19
- Print "@X0F", INTEGER008, "@X70"
- INTEGER015 = 1
- Endif
- :LABEL006
- If (INTEGER016 == 1) Goto LABEL007
- AnsiPos 35, 19
- STRING001 = Inkey()
- If (STRING001 == "") Goto LABEL006
- INTEGER009 = S2I(STRING001, 10)
- If (!((((((((((INTEGER009 == 1) || (INTEGER009 == 2)) || (INTEGER009 == 3)) || (INTEGER009 == 4)) || (INTEGER009 == 5)) || (INTEGER009 == 6)) || (INTEGER009 == 7)) || (INTEGER009 == 8)) || (INTEGER009 == 9)) || (INTEGER009 == 0))) Goto LABEL006
- Print INTEGER009
- If (INTEGER009 == INTEGER004) Then
- AnsiPos 35, 4
- Print INTEGER009
- AnsiPos 35, 19
- Print "@X0F", INTEGER009, "@X70"
- INTEGER016 = 1
- Endif
- :LABEL007
- If (INTEGER017 == 1) Goto LABEL008
- AnsiPos 37, 19
- STRING001 = Inkey()
- If (STRING001 == "") Goto LABEL007
- INTEGER010 = S2I(STRING001, 10)
- If (!((((((((((INTEGER010 == 1) || (INTEGER010 == 2)) || (INTEGER010 == 3)) || (INTEGER010 == 4)) || (INTEGER010 == 5)) || (INTEGER010 == 6)) || (INTEGER010 == 7)) || (INTEGER010 == 8)) || (INTEGER010 == 9)) || (INTEGER010 == 0))) Goto LABEL003
- Print INTEGER010
- If (INTEGER010 == INTEGER005) Then
- AnsiPos 37, 4
- Print INTEGER010
- AnsiPos 37, 19
- Print "@X0F", INTEGER010, "@X70"
- INTEGER017 = 1
- Endif
- :LABEL008
- If (((((INTEGER013 == 1) && (INTEGER014 == 1)) && (INTEGER015 == 1)) && (INTEGER016 == 1)) && (INTEGER017 == 1)) Goto LABEL010
- If (INTEGER011 == 0) Goto LABEL009
- INTEGER011 = INTEGER011 - 1
- Goto LABEL002
- :LABEL009
- Print "@X07"
- Cls
- PrintLn "@X0AToo bad, so sad, you LOST!!!"
- PrintLn "@X09Subtraction " + String(INTEGER012) + " minutes..."
- AdjTime -INTEGER012
- PrintLn "The code was: ", INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
- Goto LABEL011
- :LABEL010
- Print "@X07"
- Cls
- PrintLn "@X09Congratulations!! You won!!"
- PrintLn "@X09Adding " + String(INTEGER012 * (INTEGER011 + 1)) + " minutes!"
- AdjTime INTEGER011 * INTEGER012
- PrintLn "The code was: ", INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
- Endif
- :LABEL011
- Wait
- PrintLn
- PrintLn
- PrintLn "@X0AThank you for joining us down here at the WIZREG PPE. A special"
- PrintLn "thanks to Home BBS..."
- PrintLn ""
- PrintLn " @X09THE WIZARD'S BBS!"
- PrintLn " [508]481-4693"
- PrintLn "@X09"
- PrintLn " -Over 6 gigabytes online!"
- PrintLn " -Files from A-Z, something for everyone!"
- PrintLn " -Support up to 28800 baud!"
- PrintLn " -10 FULLY ONLINE Nodes (On Hunt)"
- PrintLn " -100's of RIMENET Conferences"
- PrintLn " -Home of @X0FWIZ-WARE@X09 software!"
- PrintLn " -and best of all... A Cool SysOp!"
- PrintLn ""
- PrintLn "@X07Please wait... Returning you to the Wizard's BBS"
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 3 Cls
- ; 2 Wait
- ; 28 Goto
- ; 27 Let
- ; 23 Print
- ; 37 PrintLn
- ; 25 If
- ; 1 DispFile
- ; 1 FOpen
- ; 1 FClose
- ; 2 FGet
- ; 3 AdjTime
- ; 1 InputStr
- ; 20 AnsiPos
- ;
- ;
- ; ■ Functions used :
- ;
- ; 1 -
- ; 2 *
- ; 15 +
- ; 2 -
- ; 72 ==
- ; 2 >
- ; 17 !
- ; 4 &&
- ; 45 ||
- ; 5 Random()
- ; 1 Time()
- ; 1 U_Name()
- ; 5 Inkey()
- ; 7 String()
- ; 2 PPEPath()
- ; 1 MinLeft()
- ; 5 S2I()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : A
- ;
- ; A - Adjust online time remaining ■ 5
- ; Program modify the amount of online time remaining, this may
- ; be a way to bypass time limits
- ; ■ Search for : ADJTIME
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 7 If/Then or If/Then/Else
- ; 0 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-